home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / e / speedtests / mics.e < prev    next >
Text File  |  1999-06-14  |  780b  |  42 lines
  1. OPT LARGE
  2. OPT PREPROCESS
  3.  
  4. MODULE '*testspeed'
  5.  
  6. CONST LOTS_OF_TIMES=100000
  7.  
  8. #define mics2(a1,a2,b1,b2) IF b1<b2 THEN Mul((a2-a1),1000000)+(b2-b1) ELSE Mul((a2-a1),1000000)-(b1-b2)
  9.  
  10. PROC main()
  11.   test({test1}, 'Mics using procedure', LOTS_OF_TIMES)
  12.   test({test2}, 'Mics using define',    LOTS_OF_TIMES)
  13. ENDPROC
  14.  
  15. PROC test1()
  16.   mics1(3232,231,23,55345)
  17.   mics1(3232,231,23,55345)
  18.   mics1(3232,231,23,55345)
  19.   mics1(3232,231,23,55345)
  20.   mics1(3232,231,23,55345)
  21. ENDPROC
  22.  
  23. PROC test2()
  24.   mics2(3232,231,23,55345)
  25.   mics2(3232,231,23,55345)
  26.   mics2(3232,231,23,55345)
  27.   mics2(3232,231,23,55345)
  28.   mics2(3232,231,23,55345)
  29. ENDPROC
  30.  
  31. PROC mics1(a1,a2,b1,b2)
  32.   DEF decc
  33.   IF b1<b2
  34.     decc:=Mul((a2-a1),1000000)+(b2-b1)
  35.   ELSE
  36.     decc:=Mul((a2-a1),1000000)-(b1-b2)
  37.   ENDIF
  38. ENDPROC decc
  39.  
  40.  
  41.  
  42.